post <- post %>%
mutate(iter = 1)
p1 <- post %>%
select(`avg_s1[1]`, iter) %>%
mutate(value = `avg_s1[1]` / (60 * 12)) %>%
post_plot_2(
min = 0,
max = 40,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p2 <- post %>%
select(`avg_s1[2]`, iter) %>%
mutate(value = `avg_s1[2]` / (60 * 12)) %>%
post_plot_2(
min = 0,
max = 40,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p3 <- post %>%
select(`avg_s1[3]`, iter) %>%
mutate(value = `avg_s1[3]` / (60 * 12)) %>%
post_plot_2(
min = 0,
max = 40,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
)
p4 <- post %>%
select(`avg_s2[1]`, iter) %>%
mutate(value = `avg_s2[1]`) %>%
post_plot_2(
min = 0,
max = 4,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p5 <- post %>%
select(`avg_s2[2]`, iter) %>%
mutate(value = `avg_s2[2]`) %>%
post_plot_2(
min = 0,
max = 4,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p6 <- post %>%
select(`avg_s2[3]`, iter) %>%
mutate(value = `avg_s2[3]`) %>%
post_plot_2(
min = 0,
max = 4,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
)
p7 <- post %>%
select(`avg_gr[1]`, iter) %>%
mutate(value = `avg_gr[1]`) %>%
post_plot_2(
min = 0,
max = 10,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p8 <- post %>%
select(`avg_gr[2]`, iter) %>%
mutate(value = `avg_gr[2]`) %>%
post_plot_2(
min = 0,
max = 10,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p9 <- post %>%
select(`avg_gr[3]`, iter) %>%
mutate(value = `avg_gr[3]`) %>%
post_plot_2(
min = 0,
max = 10,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
) +
theme(axis.text.x = element_blank(),
axis.ticks.x = element_blank())
p10 <- post %>%
select(`avg_gr[4]`, iter) %>%
mutate(value = `avg_gr[4]`) %>%
post_plot_2(
min = 0,
max = 10,
lower_bound = 0,
target_values = 0,
alpha_filling = 0.3,
alpha_outline = 0.8
)
design <-
"ADG
BEH
BEI
CFJ"
p1 + p2 + p3 + p4 + p5 +
p6 + p7 + p8 + p9 + p10 +
plot_layout(design = design)